home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / InnerWin.mod < prev    next >
Text File  |  1993-08-19  |  622b  |  18 lines

  1.    /* ------ Open/close an inner window  ------ */
  2.     InnerWin:
  3.      if GetClip('inner_open') ~= '1' then do
  4.       address AREXX '"call CreateHost(HO1,PO1)"'
  5.       cmd = 'WaitForPort HO1' 
  6.       if ~show('Ports',HO1) then address command cmd 
  7.       l1 = 294 ; t1 = 40 ; w1 = 310 ; h1 = 150 
  8.       ti1 = 'OpenWindow Demo'
  9.       flags = 'WINDOWDRAG+WINDOWSIZING+BACKFILL'
  10.       call OpenWindow(HO1,l1,t1,w1,h1,,flags,ti1) 
  11.       call openport(PO1) ; call ActivateWindow(HO1)
  12.       s = SetClip('inner_open','1')
  13.       end
  14.      else do 
  15.        call CloseWindow(HO1) ; s = SetClip('inner_open','0') ; end
  16.      return
  17.         
  18.